0 :GOTO100:
20 :SAVE"@0:BU+DI TEXT TEXT",8:RETURN:
21 :
22 :
100 :REM----SCHIRM-AUSGABE
101 :DIMZ$(25):GOSUB1000:POKE53280,F0:POKE53281,F1
102 :PRINT"[147]";:FORI=.TO23:PRINTZ$(I);:NEXT:PRINTZ$(I);
105 :POKE198,.:WAIT198,1:GETA$:
108 :
109 :
200 :REM----NACHLADEN
201 :R$=CHR$(13):H$=CHR$(34):A$=R$+"RUN"+R$
202 :PRINT"[147]?"H$"[147]"H$":L[207]"H$"BUBBLE & DIMOND"H$",8:";:POKE211,.
205 :FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT:POKE198,I-1:SYS42107:
206 :
207 :
208 :
209 :
1000 :REM-----SCHIMCODES
1050 :VM= 0:F0= 11:F1= 12:F2= 0:F3= 0:F4= 0:XA= 0:XE= 39:YA= 0:YE= 24
1052 Z$(0)="[208]ROGRAMMBESCHREIBUNG[146] [159][194]LASEN & [196]IAMANTEN "
1053 Z$(1)="[146]                                        "
1054 Z$(2)="[153]- UNENDLICH VIELE [204]EVEL                 "
1055 Z$(3)="[146]- NEUN [211]CHWIERIGKEITSSTUFEN             "
1056 Z$(4)="[146]- [194]EDIENUNG MIT [202]OYSTICK ODER [212]ASTATUR  "
1057 Z$(5)="[146]- GEEIGNET FUER [193]NFAENGER UND [198]ORT-     "
1058 Z$(6)="[146]  GESCHRITTENE, ALLER [193]LTERSKLASSEN     "
1059 Z$(7)="[146]- [199]ESCHWINDIGKEIT UND [215]ACKELZAHL IM     "
1060 Z$(8)="[146]  [200]AUPTMENUE FREI EINSTELLBAR.          "
1061 Z$(9)="[146]- [208]ROGRAMMIERSPRACHE [194]ASIC              "
1062 Z$(10)="[146] ([193]DAPTATION TO OTHER LANGUAGES ALLOWED)"
1063 Z$(11)="[146]                                        "
1064 Z$(12)="[146][200]ALLO  [211]PIELELIEBHABER UND  [198]ANS,  ICH  "
1065 Z$(11)="[146]                                        "
1066 Z$(13)="[146]HOFFE, DAS DAS [211]PIEL [194]LASEN & [196]IAMANTEN "
1067 Z$(14)="[146]                                        "
1068 Z$(14)="[146][197]UREN [199]ESCHMACK GETROFFEN HAT.          "
1069 Z$(16)="[146]                                        "
1070 Z$(17)="[146][196]IE BISHERIGEN [212]ESTER WAREN ZUMINDEST   "
1071 Z$(18)="[146]                                        "
1072 Z$(18)="[146]POSITIV ANGETAN.                        "
1073 Z$(20)="[146]                                        "
1074 Z$(21)="[146][214]IEL [211]PASS BEIM [211]AMMELN UND [196]ADDELN     "
1075 Z$(22)="[146]                                        "
1076 Z$(23)="[146][215]UENSCHT [197]UCH      [158][196]. [194]REITINGER       "
1080 :A=1:RETURN
1083 :
1084 :